os ae oe 


aoe 
gaan? 
BABAR 
maoad 
yas 
aeans 
gaa? 
aaeEs 
paaaS 
aae1e 
Bae 4 
G80 2 
BHALS 
HAA 4 
Gad15 
aba16 
Gao F 
eBb18 
80819 
pan2a 
— 88G21 

| e8a22 
BO823 
pab24 
BaH25 
aga26 
aoaa7 
gae28 
gaaeS 
38 
i ofteed 


baose 
HOOSS 
agus 
HBSS 
G00S6 


HB8SE 
BOSD 
Benda 
Head 1 
Hued2 
BEDS 
8a04d4 
Hands 
BHedée 
Hon4S 
Bnu4Ss 
HHI49 
8oe5o 
HOvS1 
nase 
Haass 
60a54 
Hos 
df Ube a 
 8eeas? 

eeess 


Free 


Fceec 


FCGF 
FC12 


FCLS 


Fe1s ¢ 


FCIB 


FOLE 


PAGE’ Bb1 - FDOSPROM 


FaSa DKDID 
FO81 = DKDIC 
Fase DKCOD 
Fas? PKCOC 
Fesé PKDOD 
Fas? = PKDOC 
FFFC —- SBUG 
FEES = ca 
ge11 TEMP 
FESB = NSTACK 
ga2@ EXEC 
8823. UPDATE 
ga2o = EDIT 
aqaa ASHE 
eoga PASS 
goat OFILE 
@882 OUNIT 
geez  IUNIT 
goa4 ISIZE 
gaee  ITRK 
paa7  ISCTR 
gage ICNTR 
6689 OSIZE 
HOB = OTRK 
gaaC OSCTR 
Ho8D  OCNTR 
GGGE TITRK 
GOOF — TISZE 

* 
Foaa = Fbos 
7E FES2 

3 7E aa28 

* 
Fce@s = INTIO 
(7E FCS9 
FCB9 ~—XRI 
7E FDIB 

x 
FOaC  —-XWRT- 
7E FDSE 

*# 
FCQF - UPDT 
7E FEP9 
7E 9823 

* 
FC15 PROG 
BD FCS7 
7E FFFC 
FCI8 = ASSEM 
BD FCS? 
BD FC2D 


NAN 
OPT 
EQU 
ERU 
EQu 
EQU 
EQU 
EWU 
EQU 
EQuU 
EWU 
EQU 
EQu 
EQU 
Evu 
Eau 


EQu 
Eau 
EQu 
Evu 
EQ 
EQU 
EQU 
EQU 
ERU 
EQu 
EQU 
Ew 
Eau 
Eau 


ORG 


EU 
JHP 
JMP 


Eau 
JMP 


EQu 
IMP 


Eau 


JMP 


FDOSPROM 


QO. NOG 
SF USH 
$F USL 
$FUS2 
$FASS 
FFaS6 
$F aS? 
$FFFC 
$FEES 
FOG11 
FFESB © 
2a 
2s 
#20 
#8400 


$FCH8 


* 
PATCH1 
EXEC 


* 
RESET 


* 
RI 


* 
WRT 


* 
PATCH 
UPDATE 
* 
REDX 
SBUG 

* 
REDX 


— RESTR 


4ree 


ASSEMBLY PASS INFO 

QUTPUT FILE NUMBER 

OUTPUT UNIT 

INPUT UNIT 

INPUT FILE SIZE 

INPUT FILE TRACK 

INPUT FILE SECTOR 

INPUT FILE BUFFER COUNTER 
OUTPUT FILE SIZE 

OUTPUT FILE TRACK 

QUTPUT FILE SECTOR 

OUTPUT FILE BUFFER COUNTER 
TEMP LOC 4 | 

TEMP LOC 2 


LOAD FDOS 
START EXEC 


INITIALIZE I/O 


DISK READ VECTOR 


DISK WRITE VECTOR 


START UPDATE 


LOAD PROGRAN 
GO TO SBUG 


LORD ASSEMBLER 


RESTORE IFILE POINTERS 


a aoe aie 


SAGE 


GeaSI 
Hage 
wuaeL 
Hube2 
HOGES 
uae 
HOBES 
BOB66 
Hae? 
HGb6S 
HALES 
88878 
Boar L 
Gea'2 
USS a 
eoe4 
Hag S 
— BAEFES 
Sis na 
BOa?S 
Hoo" 9 


oaese 


- AGFSL 
BEOSS 
BASS 
SHGS4 
Bags 
HweaSE 
Boos? 
eoHSs 
HGHSS 
8G090 
GIBOL 
BHO92 
HAGRS 
Bea94 
HIS 
HOBIE 
spas 
HABSE 
HAGI9 
00189 
HALL 
bo1be 
HALOS 
68104 
GAL a5 
G8106 
Bator 
0108 
HALES 
H8118 
HALL 
O8112 
~B8L13 
boi14 
HOL15 
68116 


O62 
FC21 


FC24 
FC27 
FC2RA 


FC2D 
FCF 
FCS4 


FOSS | 


FUSS 
FCS? 
FUSES 
FCS9 
FCsA 


FCSé § 


FCED 
FC40 


FC41 
FC44 
FC4/ 
FC49 
FC4IC 


FC4F ; 


Fcs2 
FOSS 


FDOSPROM 


rE 0468 


FC24 

BD FC8? 
BD FC2D 
rE G620 


FOSS 3s 


FCS9 3 


Fese 
FCSF 
FC62 
FC6S 
FC6? 
FC6A 
FtCéD 
FCEF 
FCre2 
FC r4 
FOr? 
FOFS 
FCrC 
FOrE 
FCS1 


FUSS 


FCS6 


33 


FDOS1 


*- 


*SUBROUTINE TO SET - up PIA‘S 


VUBUDBD BoD 


ASNB 
* 


REDX 
RESTR 


EDIT 


* 
TISZE 
ISIZE 
TITRK 
ITRK 
IUNIT 


ISCTR 
ICNTR 


* 
RESET 
#73 
ISTZE 


ITRK 


ITRK 
ISCTR 
ICNTR 


REDS — | 


ee ELECTRONICS 


RESET 


* 


EQu 
CLR 
CLR 
CLR 
CLR 
LOA 
STH 
STR 
LDA 
STR 
LDA 
STA 


LOR 


STA 
LDR 
STA 
LBA 
JSR 


RTS 


BBUDDBUBDDBUDBDBD 


x 


DKDUC 
DKDIO 
#SFF 
DKCOQD 
DKDUD 
#4 


PKDIC 


#F4 


DKDOC 


#F2C 


DKCUC © 


#3950 
DKCOD 
#F0C 
LOOP 


DKBIC 
OKCOae 


START ASSEMBLER 


LOAD EDITOR 
RESTORE IFILE PNTRS 


START EDITUR 


RESTORE IFILE PNTRS 


IFILE SIZE 


TRACK 
UNIT/SECTOR 


BUFFER COUNTER 


RESET ELECTRONICS 
SET ISIZE=78 


TRACK=1 


SECTOR=8 
RD BER EMPTY 
LOAD FooS 


> AND 


SET DIRECTIONS 


SET DATA IN CNTRL 


SET DATA OUT CNTRL- 


SET CMD OUT CNTRL 
ISSUE CLEAR ELECTRONICS 


*SUBROUTINE TQ READ AN OBJECT FILE 
*INTO MEMORY 
*K 


HOLe5 
68126 
HaLe" 


46128. 


HH1LL9 
80130 
HeLSL 
GG1s2 
BHLSS 
bG1s4 
HH1S5 
G0136 
Ho1s? 
HGis8 
BELSS 
B14 
HH147 
86142 

HO14S 


88155 
@eis6 


. 8815? 


@6158 


40159 


88164 
HH1L61 
48162 
GHLEs 
—8b164 
wuL6S 
G8166 
e167 
8616s 
HO169 
@01,78 
HOt 71 


FC8? BD 
25 23 


FCS 

FCS 
FCSE 
Fese 
FCSS 


FCS | 


FCS? 
FC99 
FUSE 
FCSD 


FCSF & 


FCA1 


FUCAS & 
FCAS ; 


FCR? 
FCA 
FCAC 
FCRF 
FCBG 
FCB2 
FCBS 
FCBS 
FCEE 
FCBS 
FBR 
FCEE 
FCED 
FCBF 
FCCa 


| FCS 


FCCS 
FCC? 
FCCS 
FCCA 
Fece 
FCCD 
FCCF 
FCDG 
FCD2 


FCD4 | 


FCD? 
FCD9 


FCOB 


FUDD 


FCDF 


FCE41 
FCES 
FCE4 
FCES 
FCE6 
FCE? 
FCES 
FCEA 
FCEC 


. 883 FDOSPROM 
‘| 


FCS? 


81 33 
26 Fi’ 


°F OO13 


8D 2s 


oP if 


80 1E 
oF 12 


SP 14 
PE it 


FCDB 
SD 33 
25 CS 
SD 1D 
eo C4 
48 
43 
48 
43 
36 
8D 28 
25 BB 
SD 18 


FD12 


REDS 


REDS 
REON4 


8814 REDXS 
r @Db 


ROBYT 


Eau 
JSR 


BUGDDB 


rn DD DBD DTD 


fe 
RIX 
REDXS 
#353 


REDS 


TEMP +2 
RIX 
REDX2 
#$30 
REDS 
#FS1 
REDAX4 
#FS9 
REDS 
#$1B 
REDXS 
#SSF 


DECR 
TENP +s 


RDBYT 
TEMP 


ROBYT 


TEMP+1 
TEMP+3 


REDXE 


RDBYT | 


TEMP | 
Gs ¥ 
TEMP 
REDAS 


— RDBYT 
TEMP+2 © 
~ REDX2 


REDX 


* 
RIX 


—REDK2 


CHEN 
REDS2 


RIX 


REDX2 © 
CHEX 


GET A CHAR 


EOF - 
S?7 


NO 
RESET CHKSM 
GET A CHAR 
LOAD ERROR 
HDR BLK-SKIP 
DATA BLK. 


EOF BLK-SKIP 


Est? 


YES-END OF QBJECT FILE 


LOAD ERROR 


GET BYTE COUNT 


COUNT 


SAYE CNT 
RERD ABDRCHD 


READ ADDRCLO 


VE. 


NO-READ DATA 


SAYE IT 


CONTINUE 
RERD CHKSN 


‘CHKSM ERROR © 
CHKSM OK 


GET A CHAR 


EOF 


CONVERT TQ HEX — 


COUNT=8? 
S 


e7 dd i+ 


RB? ¢¢ II 


87 GP V2. 
FE $@ i 


FE Od IN 


¢..- 
PAGE 804 FDOSPROM 


BAL7S FCEE 25 B7 BCS —- REDX2 


88176 FCF 33 PUL 8 
8O177? FCF1 18 ABA | 7 
69178 FCF2 16. TAB , 
G8179 FCF3 9B 13 ADD A TEMP+2 ADD TO CHKSM Ba gpd I3 
88180 FCFS 01 | NOP | | 
@G181 FCF6 97 12 = STA A TEMP+2 B7 gd.I3. 
HO182 FCFS 84 NOP 
Q@H483 FCF9 7A 8014 DEC TEMP+3 DECR BYTE CNT 
68184 FCFC 17 TBA 7 
Ha185 FCFD 39 RTS 
G8186 FCFE 90 36 CHEX SUB A ##30 
80187 FOGG 25 OF BCS — CHEX2 
88188 FDA2 8B ES ADD A ORSES 
ga189 Foa4 25 OB BCS ~— CHEX2. 
84198 FDOG 8B-.O6——__.______ADD _A#86 
88191 FDS 2A a4 BPL = CHEX14 
88192 FDA 8B a7 ADD A #87 
BG493 FDC 25 az BCS — CHEX2 
66194 FD@E 388 GA CHEX1 ADD A #$0A 
go195 FOL ac cLoe | 
HH196 FD11 39 CHEX2 RTS 
a1 97 
88199 *SUBROUTINE TO READ AN ASCII BYTE FROM DISK 
es *e RETURN IT IN A-REGISTER. IF EOF, CARRY IS SET 
26 - get | : 
pOSHL Foi2 RIX EQU * 
Ha202 FD12 BD FD1B — JSR RI GET BYTE 
HASH FDIS 25 a3 BCS  RIXi EOF 
Ga204 FRAP 94 FF AND A O#S7F | 
ao2aS FOL9 ac CLC 
88206 FDLIA 39 RIX4 RTS 
ao207 
en208 ‘ SUBROUTINE TO READ AN 8-BIT BYTE FROM DISK & 
pa2Za9 * RETURN IT IN A-REGISTER. IF EOF, CARRY IS SET. 
00218 * | | 
A214 FO1B RI EQU 
Q@9212 FP1B 7D 8808 = TST  ICNTR  COUNT=0 
HALLS FRLE 28 4D BNE = ==RIAO No 
88214 FD20 CE 8086 RIS LDX #ITRK 
H8215 FD2Z3 BD FDEF JSR INCDA 
88216 FR26 DE o4 LOX ISIZE ~~ DECR & CHK IFILE SIZE 
HO217? FR2Z8 a9 DEX - 
88218 FR29 26 a5 BNE — RI3 OK | 
- 88219 FD2B 7F Baas CLR ——«ICNTR P ae 
@8229 FDZE OD SEC SET EOF \ 
88221 FD2F 39 RTS 2 : | 
wA222 OR 
8225 FDS8 DF G4 RIZ STX _— ISIZE ee 
Q8224 FD32 96 87 LDA A OISCTR = XMIT U/S ol 
0225 F324 BD FEO JSR US i 
84226 FD37 BD FE4D JSR CHK MAKE SURE A DISK a 
BO227 FD3A 86 38a LOA A #128 SET CNTR=128 ; 
G4228 FDIC 97 88 STA A ICNTR ) | 
GH229 FDSE 86 OS LDA A #5 SET TRY COUNT=5 
HO220 FD40 97 15 STA A TEMP+4 RB? ¢d 15 
GO231 FR42 O4 NOP 3 
Q8232 FD43 96 O6..... = LDA A_ITRK SEEK TRACK 


: ee. 


PAGE 


Bess 


ics 
Bue SE 


HALS 7 
HB239 
GH229 
68248 
8241 
Hb242 
HG24S 
| 88244 
HL4S 
60246 
88247 
Go24ds 
BHos4o 
Ha25E 
BaLS1 
Hasse 
HSS 
Ga254 
BG299 


825s 
ILSS 


e: 
~ Od 
4262 
BULZES 
HeaZze4 
HuLES 
88266 
Ba26" 
@8268 
BEZEO 
_ 882768 
Ba271 
G42 72 


ed he pers Ks 


882774 
2 °5 
66276 
Ba2 
Gb27°S 


— 88279 


48280 
B8OL81 
#a282 
BALES 
On2L84 
@:* 
eeS6 
88287 
Ga28s 
G8289 
vea29H 


° FDPB 


G05 
FD45_ 


FD4I8 386 
FERE 
Fase 


FD4A 
FD4D 
FDSA 84 
FDS2 27 
FDS4 
FDS? 2 


FDS 
FDSC 
FRSE 27 
FD&8 
FD6S 
FD&6 26 
FDSé&s 86 
FDSR ?. 


FD6D 8 
FDéF B 
FRPe 8 
FD?4 B 
FDP? B 
FORA Ss 

8 


HF, Ey mY Dy 


FDFD 
FSG 86 
FDS2 Br 
FOSS * 

FRSS FA 
FDSB 
FRSC 
FDS 


FDSE 
FO94 


FDS3 BF 


FD96 Ct 
FD99 § 
FD9B 
FDSD 2? 
FDSF 


FDAG 
FDRS 36 
FDRAS 
FDAS 
FDAB 
FDAD 
FDAF 
FD 
FDB2 
FDBS §& 


FDB? BD 


8a 
HS 
FES8 
Cr? 


Fase 
88 
kD 
FESS 


Eu 
G1 
FES? 


3c 
FOSS 
4a 


epee sgn 


RI6 


RI4 


HOLS 


RIL 


Fass 


Fase 


2c 
FOS 
4a 
Foa2 
Fas? 


HOGS | 


* 


JSR 
LDA 
JSR 
LDA 


AND 
BER 


JSR 
BRA 


LDA 
AND 
BE 
JSR 
DEC 
BNE 
LBA 


_ «AHP 


LDA 
STR 
LOA 
STA 
LOA 
PSH 
LDA 
STA 
LDA 
STA 
CLR 
DEC 
PUL 
CLC 


DD 


DG bD 


me) 


BUDBDGBBDOoDD 


a 


RTS 


DKCOD 
ICNTR 


READ DATA 
DD MARK? 


NO 
YES~RESET FLAG 


CRC ERROR? 
NO 

VES-RESET FLAG 
DECR TRIES 

TRY AGAIN 

CAN‘T READ MEDIA 
SET CMND CNTRL 
SET FOR READ DATA 
READ DATA 

RESET CHND CNTRL 


STRORE BUFR 


DECR READ CNTR 


—® SUBROUTINE TO WRITE A BYTE To DISK. 


x 


_ HRT 


WRT 2 


> GD UDB 


Go DoD 


* 
— DKDOD 


#330 
DECOD 
OCNTR 
DUNTR 
#123 


WRT 


* EXPECTS BYTE IN A-REGISTER 


QUTPUT DATA 


INUR BFR COUNT 


=1287 


YES 
NO-EXIT 


CLR COUNT 
AMIT US 


MAKE SURE A DISK 
SET TRY COUNT=35 


| B27 dd 
SEEK TRACK 
WRITE DATA 


PAGE 805 FDOSPROM ~~ 8 | 
80291 FDBA 86 86 — LDA A #6 READ FOR CRC 


80292 FDBC BD FE3E JSR LOOP 
HA293 FOBF Be Fase LDA A DKDID ~— CRE ERROR? 
— 8294 FRC2 84 a8 AND A #3 | 
| G8295 FDC4 27 120 BEQ = WRT3 NO | | 
| 80298 FRCE BD FERS JSR = -RFLAG = YES~RESET FLAG 
| 88297 FDCS 7A 8015 --. DEC  TEMP+4  DECR TRY COUNT 
| 88298 FDCC 26 E7 BNE _— WRT2 TRY AGAIN 
H8299 FDCE 86 BE LDA A OBSE WRITE AS DD 
| 86300 FRD@ BD FEZE JSR LOOP | 
| G8301 FODZ BD FDDC JSR — -WRTN INCR DA & CHK SIZE 
@A302 FODE 28 CB BRA —WRTA 
BAZH3 FDDS BD FODC WRTZ JSR = WRIN | 
easad FDDB 39 - RTS aa 
BAsaS i ate eee : 
BO206 * SUBROUTINE TO INCR DA & CHK OFILE SIZE 
Boza7 * Se! ee 
Aa208 FODC = WRIN EQU * ..... 
HESG9 FODC CE eeeB LPX = #0TRK 
H0310 FDDF BD FDEF JSR“ INCDA 
HO311 FOE? DE a9 LOX OSIZE 
OO312 FDE4 89 DEX 
BHOSLE FDES DF a9 STX  —-OSIZE 
Gd314 FOE? 2B G4 | BMI ° ~WRTNA 
88345 FOES 39 | RTS 
@a216 FDEA 86 82 WRTIN1 LDA A #2 
HO317 FDEC 7E FES? JMP  —-CHK4 
Ba313 —_— * | 
80319 * SUBROUTINE TO INCR DA | 
ga720 : * TRACK ® (X) SECTOR ® (X+4) . 
Has21 * fg | 
gaz22 FDEF INCDA EQU * 
GOZ22 FDEF 6C O4 INC = 44K : 
G@0324 FOFL AG O4 LPR A 448 SECTOR=27? 
HOSES FOFS 84 41F AND A #$iF 
HO326 FDFS 81 18 CMP A #27 
HO227 FOF? 27 O4 REQ  INCDB YES 
80328 FDF9 39 RTS No 
HAS29 * 
QO230 FDFA AG G1 INCDB LDA A 4.8 | 2 
G@O231 FDFC 84 C4 AND A #SC4 SET SECTOR=4 
Q0332 FDFE A7 @1  . STARA 4:8 — | 
‘GO333 FERG 60 88 INC && INCR TRACK 
«80334 FEG2 39 RTS | ar : : 
 88sss ow . . i 
HO336 * SUBROUTINE TO XMIT UNIT/SECTOR (LOGICAL) BYTE 
HO337 oa Sse act onhdade ot | \ 
GA229 FEBS XUS EQU * 7 | ‘7 
HOZ39 FEB 36 PSH A EXTRACT LOG SECTOR ig. |. 
Ha340 FEO4 34 1F AND A O#S4F > 
O8341 FEB6 CE FESE © LDX = #TBL GET TABLE PNTR dd \¢ 
8342 FEQ9 DF 15  «STX TEMP +4 FF Od 
BO342 FEAR O41 _ NOP , | / 
G0344 FE@C SF CLR B MAKE INTO SECTOR PNTR Do ig 
G8345 FEOD 9B 16 ADD A TENP+S ae od IG. 
@8346 FEOF 81 NOP | | | 
BO347 FEL@ D9 15 ApC B TEMP+4 . 3 F9 64 |S 
80343 FE12 041 | NOP oe | Dae 


€ 


PAGE 
49 


HA3S5/ 
BOSSES 
S59 
gaz68 
BUSEL 
BG3s62 
BUSES 
80564 
GSES 
BOS66 
BSE,” 
HAS6S 
BUSES 
base 
EHSL 
HAL72 
BUSS 
BOS 74 
BESTS 
a 
bre orr 
Buss 
BASS 
8O3sa 
BASEL 
Gases2 
BASES 
Gaso4 
Gasss 
_ Basse 
HOSS; 
B8388 


~~ BOSE9 


69398 
BASEL 
Bb392 
BOSIS 
G8H394 
88395 
BO396 
. 9839/7 
BO398 
HASS9 
8400 

S594 
a 4h2 
O43 
(Badeadg 
804a5 
68486 


‘| 


@07  FDOSPROM 


FELS 


97 16 


FEIS 81 


FEL6 
FE18 
FEL9 
FELB 
FEIC 
FELD 
FEIF 
FE21 
FE22 
FE23 
FE,” 
FE2A 


FEZ 
FEZE 
FES@ 
FESS 
FESS 


FESS 
FESR 
FESD 


FESE 
FE41 
FE44 
FES? 
FE49 
FEI 


FE4D 
FES@ 
FES2 


FE2B 
B? FUSE 
&6 16. 
BY FUSS 
&6 8s 
rE FESE 


FESS 
86 OA 


ae 


* SUBROUTINE 
* 
SEEK 


B? FeS2 | 


39 


FESE 
Fé Feee 
Br Fase 


BS Feel 


2A FB 
Fé Fooe 
39 


FE4D 
Be Fase 
84 28 
26 G1 


FES4 39 


FESS 


FES? 
FES 
FESC 


86 Gs 


8A 3O 
BD FEES 
rE FFFC 


* SUBROUTINE 


LOOP 


LOOPL 


est ef 
* SUBROUTINE 
x 


CHK 


CHK2 
* 


* ROUTINE TO 


CHK1 


* ; 


Ew 
STA A 
LOH A 
STA A 
LDA A 
JHMP 


SUBROUTINE 


Eau 


LOA A 


STA A 
RTS 


EQu 
LOA A 
AND A 
BNE 
RTS 
LDR A 


ORR A 
JSR 


IMP 


&B7 do Ib 


TEMNP+5 

TEMP+4 -7 ¢p \5 
TENP+4 Fe op |S 
NERGE UNIT & PHYS SCTR 
#$C8 bg : 

a, X | | 

DKDOD ISSUE IT. 

##20 | 

PKCOD 


TO SEEK TRACK IN A 


* : 
DKDUD 
#310 
DKCOD © 
#38 
Loup 


TO RESET ERROR FLAG 


#$A 
PKCOD 


TO ISSUE (A> CHND & LOOP ON BUSY 


* 
OKDID CLEAR BUSY | 
DKCOD ISSUE CMND 
OKDIC DONE? 

 LooPt NO 
DKDID YES-CLR BUSY 

EXIT 


TO CHECK IF A OISK, ELSE ERROR 3 


* 
DKDID — 
#E20 
CHK2 


OK 
#3 - ERROR 
PUT ERROR CAD 
#E3G CONVERT TO ASCII 


CO 
SBUG 


* PHYSICAL SECTOR TASLE. IS IN ORDER OF 
* LOGICAL SECTOR NUMBER 


PAGE @@8 FDOSPRON — 


Bada? : es Ole ean ae 
eaqus:  . FESE TEL EaQu *-4 
88489 FESF 4 : FCB 4 
8041@ FE6@ OA - FcR =s 18 
3414 FE61 142 0° FCB = 19 
88412 FE62 82 - : FCB 2 
88413 FE62 GB FOB =-44--—. 
G0414 FE64 14— Foe 28 
88415 FEBS a2 FOB 3 
A416 FEG6 @C Foe = 12 
G0417 FEG7 15 | FCB o2t 
a8418 FE6S 04 FoR 4 
80419 FE69 8D FCB = 13 
88420 FE6A 16 FOB 22. 
Bide FEGB GS UB OS. 
88422 FE6C BE. < FOB 44°C 
844232 FEGD 17 FCB 
68424 FEGE @6 . FOB 6 
83425 FEGF OF Fce = s«i5 
Ha426 FE7@ 18 FCR 24 
HO427 FE7L 87 FCB 7? 
ged28 FE72 10 FCB «16 
Had29 FEP2 19° FCB 25 
88430 FE?4 ag | ‘FCB 8 
O84si FEFS 44 7 FCB «41? 
88432 FE76 4A t—‘“*;é‘SC ORO 
HO433 FEF? ag FCB 9 
80434 FE78 12— FOR = sis _ | 
gad25 cae * | : es 2 
G426 FE79°SE FESB PATCH LDS #XSTACK gE 4FFF | . 
Gadzr FEPC BD FC44 JSR FDOS4 fs | 
Ba428 FEPF 7E a2? JMP «UPDATE 
HHd29 FES2 SE 1608 PATCH1 LOS #$1E88 Ste +FFF 
8440 FESS BD FC41 ‘JSR FOOS1- > - 
88441 FESS 7E aaza JMP == EXEC 
gad42 me Ft ee oT 
«88442 * 
8444 © oe 
8445 * 
80446 FESB | ORG  $FESB 
BA447 * 
80448 | *END OF MEMORY FIND 7 
80458 FESB 86 55  NEMSTR LDA A #55 LOAD REC. A WUTH VALUE OF | ste (Ot, ey 
«88451 FESD CE OFFF — LDX HSOFFF  L2AD iNork REG with veLror gFFF (FEF 2. 
neds? FE9O ES aa LDA B OSs £9N2D REO EG wT ee oF i ee a aa 
gads? FES2 EF OG MEML STAB OH SIRE cage OE MEE BAT LOG. AE INES 8 
RO454 FE94 @8 INK De aay Girne dee On iNeey te 
BadS? FESO AL OB CMP A OO SURE CONT ENE Behe eT nace ae 
8458 FESR 27 FS BEQ EMA «6 «LF Fava. conTinve oop | 
BD459 FESD a9 DEX RECT MENT ANGER, LEGESTER:. 
09460 FESIE 39 RTS RETURN 
BA464 ok 7 | 
pa462 *CLEAR SCREEN | | 
HOaq6 3 ste SOAD th70 INDEX REG. , 


«fee 


(00464 FESF CE E@a@ CLRSCN LOX = #SE909 © CAT Bul fEg BiGinNInG proce 


See ARR ts 


ee FEA ep 
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